home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / global.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-27  |  1.3 KB  |  50 lines
  1. unit global;
  2.  
  3. interface
  4.  
  5. uses
  6.     WinTypes,
  7.     VbApi_;
  8. {---------------------------------------------------------------------------
  9.  CIRC control data and structs
  10. ---------------------------------------------------------------------------}
  11. Type
  12.     Pcirc2 = ^Tcirc2;
  13.     Tcirc2 = record
  14.         rectDrawInto:    TRect;
  15.         CircleShape:    integer;
  16.         FlashColor:    longInt;
  17.     end;
  18.  
  19. {---------------------------------------------------------------------------
  20.  Property info
  21. --------------------------------------------------------------------------}
  22. const
  23.     CircleShapeName:    array[0..12] of Char = 'CircleShape'#0;
  24.     Property_CircleShape:    tPropInfo = (
  25.         npszName:    tOffset(@CircleShapeName);
  26.         fl:            DT_SHORT or PF_fGetData or PF_fSetMsg or PF_fSaveData;
  27.         OffSetData:    0;
  28.         infoData:    0;
  29.         dataDefault:    0;
  30.         npszEnumList:    0;
  31.         enumMax:        0);
  32.  
  33.     FlashColorName:    array[0..12] of Char = 'FlashColor'#0;
  34.     Property_FlashColor:    tPropInfo = (
  35.         npszName:    tOffset(@FlashColorName);
  36.         fl:            DT_COLOR or PF_fGetData or PF_fSetData or PF_fSaveData;
  37.         OffSetData:    0;
  38.         infoData:    0;
  39.         dataDefault:    0;
  40.         npszEnumList:    0;
  41.         enumMax:        0);
  42.  
  43. implementation
  44.  
  45. begin
  46.     Property_CircleShape.OffSetData := Ofs(tCirc2(ptr(0,0)^).CircleShape);
  47.     Property_FlashColor.OffSetData := Ofs(tCirc2(ptr(0,0)^).FlashColor);
  48. end.
  49.  
  50.